home *** CD-ROM | disk | FTP | other *** search
/ The Complete Interactive…ermaid's Special Edition) / The Complete Interactive Cookbook - Mermaid's Special Edition [Compton's, 1999].iso / TOURGUID / COOKTG.DIR / 00012_Script_12 < prev    next >
Text File  |  1996-10-29  |  1KB  |  44 lines
  1. on initializeDemo
  2.   global pauseSprite
  3.   set pauseSprite = 47
  4.   
  5.   global gPaused, gContinued
  6.   set gPaused = FALSE
  7.   set gContinued = FALSE
  8. end
  9.  
  10. on waitsound whichChannel
  11.   repeat while (soundBusy(whichChannel)) and not (the mouseDown)
  12.     updateStage
  13.   end repeat
  14.   checkPassClick
  15. end waitSound
  16.  
  17. on waitVideo whichSprite
  18.   set the movietime of sprite whichsprite = 0 -- REWIND
  19.   set the movierate of sprite whichsprite = 1 -- START PLAYING
  20.   repeat while (the movieRate of sprite whichSprite > 0) and not (the mouseDown) and not (the movietime of sprite whichSprite >= the duration of cast the castNum of sprite whichSprite)
  21.     updateStage
  22.   end repeat
  23.   checkPassClick
  24. end waitVideo
  25.  
  26. on waitTicks howMany
  27.   put the ticks into startTicks
  28.   repeat while the ticks < startTicks + howMany
  29.     updateStage  
  30.   end repeat  
  31. end 
  32.  
  33. on checkPassClick
  34.   global gPaused, gContinued, PauseSprite
  35.   if gPaused then
  36.     if the clickon = PauseSprite then
  37.       continueDemo
  38.     end if
  39.   else if gContinued then
  40.     if the clickon = PauseSprite then
  41.       pauseDemo
  42.     end if
  43.   end if
  44. end